home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / examples / src / Fail.mod < prev    next >
Encoding:
Text File  |  1994-09-26  |  152 b   |  10 lines
  1. (* @B+ turn on array bounds checking *)
  2. MODULE Fail ;
  3.  
  4. VAR x : INTEGER ; array : ARRAY [0..9] OF INTEGER ;
  5.  
  6. BEGIN
  7.   x := 42 ;
  8.   array[x] := x
  9. END Fail.
  10.